Những câu hỏi liên quan
Trần Việt Long
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 20:43

Sửa đề: S=1/1+1/2+1/3+...+1/n

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:11

program tong;

uses crt;

var n,i:integer;

t:longint;

begin

clrscr;

write('nhap n:'); readln(n);

t:=0;

for i:=1 to n do 

  t:=t+1/i;

writeln(t);

readln;

end.

Bình luận (0)
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Bình luận (0)
nuinuini
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 5 2021 lúc 10:49

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

-Bước 7: Kết thúc

Bình luận (0)
Nguyễn Lê Phước Thịnh
15 tháng 5 2021 lúc 10:49

Câu 2: 

b) uses crt;

var a:array[1..100]of integer;

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

Bình luận (0)
Cao Cự Quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:07

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

s=s+i;

cout<<s;

return 0;

}

Bình luận (0)
Lê Chiêu Nguyên	Vũ
5 tháng 4 2023 lúc 21:11

program Tingtongs;

uses crt;

var n,i:integer; s:longint;

begin

clrscr;

write('nhap n:'); readln(n);

for i:=1 to n do s:=s+i;

write('Tong la: ',s);

readln;

end.

Bình luận (0)
Quân Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 20:57

Câu 1: 

uses crt;

var a:array[1..500]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

t:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];

writeln('Tong cac so am chia het cho 7 la: ',t);

readln;

end.

Câu 2: 

uses crt;

var c,a:array[1..10]of integer;

i,kt,j,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('C[',i,']='); readln(c[i]);

end;

dem:=0;

for i:=1 to 10 do 

  if c[i]>1 then 

begin

kt:=0;

for j:=2 to c[i]-1 do 

  if c[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

a[dem]:=c[i];

end;

end;

if dem=0 then writeln('Trong day khong co so nguyen to')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem do

write(a[i]:4);

end;

readln;

end.

Câu 3: 

uses crt;

var d:array[1..200]of integer;

i,k,dem:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do 

  begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to k do 

  if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);

writeln('So phan tu chan co 2 chu so la: ',dem);

readln;

end.

Bình luận (0)
Thảo My Lê Phương
Xem chi tiết
Kiều Vũ Linh
29 tháng 3 2022 lúc 8:33

var i,n,s:integer;

begin

write('nhap n = ');readln(n);

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

Bình luận (0)
Lê Nguyễn Thiện Lộc
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2021 lúc 10:30

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++)

if (i%2==0) s=s+i;

cout<<s;

return 0;

}

Bình luận (0)
Lê Anh Phú
Xem chi tiết